home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / Forth.lha / Forth / Basic-Benchmarks / print < prev    next >
Encoding:
Text File  |  1994-04-04  |  102 b   |  8 lines
  1. a$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  2. t=TIMER
  3. FOR x=1 TO 100
  4.   PRINT  x;a$
  5. NEXT x
  6. PRINT TIMER-t
  7. sleep:sleep
  8.